﻿Namespace Test

    Module mTest

        Public WithEvents TestWin As GUI.MirWindow

        Public Sub Init()

            TestWin = New GUI.MirWindow("TestWin", 0, 0, Constants.gLoginResX, Constants.gLoginResY)
            Windows.AddWindow(TestWin, Windows.WindowType.Normal)

        End Sub

        Private Sub TestWin_DrawWindow(ByRef mode As Globals.DrawingMode, ByRef x As Integer, ByRef y As Integer, ByRef z As Single) Handles TestWin.DrawWindow

        End Sub
    End Module

End Namespace
